home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 401_500 / DISK0437 / DISK0437.ZIP / COILINDU.BAS next >
BASIC Source File  |  1985-06-14  |  768b  |  23 lines
  1. 10 'THIS PROGRAM CALCULATES THE LENGTH AND TOTAL NUMBER OF TURNS
  2. 20 'FOR A SINGLE LAYER AIR-CORE COIL. SEE RADIO HANDBOOK FOR TURNS-PER-INCH
  3. 30 'DATA FOR VARIOUS WIRE SIZES.
  4. 35 DEFDBL T,R'DEFINES VARIBLES STARTING WITH T OR R AS DOUBLE PRECISION
  5. 40 INPUT "INDUCTANCE IN MICROHENRYS  ";H
  6. 50 INPUT "DIAMETER OF COIL  ";D
  7. 60 INPUT "TURNS PER INCH  ";TI
  8. 70 R=D/2
  9. 80 L=3 'FIRST TRIAL LENGTH
  10. 90 T=(H*((9*R)+(10*L))/R^2)^.5
  11. 100 LT=T/TI 'CALCULATES LENGTH BASED ON TURNS PER INCH
  12. 110 E=L-LT 'CALCULATE ERROR IN LENGTH
  13. 120 L=L-E 'RE-ESTIMATE LENGTH
  14. 130 IF ABS(E)<.01 GOTO 150
  15. 140 GOTO 90
  16. 150 PRINT
  17. 160 L=INT(L*100+.5)/100
  18. 170 PRINT "COIL LENGTH IS: ";L;"INCHES"
  19. 180 T1=L*TI
  20. 190 T1=INT(T1*10+.5)/10
  21. 200 PRINT "TOTAL NUMBER OF TURNS IS: ";T1
  22. 210 END
  23. PRINT